#!/usr/bin/perl
use strict;
use warnings;
my $skip = 0;
while(<>) {
    if(/^Index: (\S+)/) {
        my($path) = ($1);
        if($path =~ /^configure|^libs\/libmythtv\/[^\/]+$/) {
            $skip = 0;
        } else {
            $skip = 1;
        }
    }
    next if($skip);
    print;
}
